##
##  g c d . R  tests
##

extgcd <- matlab4r::extgcd
gcd <- matlab4r::gcd
lcm <- matlab4r::lcm

identical(extgcd(46368, 75025), c(1, 28657, -17711))
identical(gcd(46368, 75025), 1)
identical(lcm(46368, 75025), 46368 * 75025)
